perm filename LOSS.LSP[AID,LSP]1 blob sn#685267 filedate 1982-11-01 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(defun test (n)
C00003 ENDMK
CāŠ—;
(defun test (n)
       (let ((foo ()))
	    (cond ((*catch 'baz
			   (progn
			    (cond ((not foo)(setq foo t)))
			    (od n)))))
	    (print foo)))

(defun od (n)
       (*throw 'baz (zerop (remainder n 2))))

(test 4)
(test 5)
(fasload loss))